home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
windows
/
ext.zip
/
EXT2.XWS
< prev
next >
Wrap
Text File
|
1992-02-04
|
964b
|
31 lines
/*
CREATES A FILE EXTENSION (CAPFILE)
THIS SCRIPT WILL CREATE AN EXTENSION CONSISTING OF
CURRENT MONTH AND DATE USING CAPFILE NAME AS THE FILENAME.
CREATED FOR VERSION 1.2.1 WHICH DOES NOT PROVIDE FILE
EXTENSION FOR CAPTURE FILE UNLESS YOU SPECIFY ONE.
*/
CAPTURE ON
IF (CURMONTH = 12) AND (CURDAY < 10) THEN CAPTURE CAPFILE + ".C0"+STR(CURDAY) : JUMP DONE
IF (CURMONTH = 11) AND (CURDAY < 10) THEN CAPTURE CAPFILE + ".B0"+STR(CURDAY) : JUMP DONE
IF (CURMONTH = 10) AND (CURDAY < 10) THEN CAPTURE CAPFILE + ".A0"+STR(CURDAY) : JUMP DONE
IF CURMONTH = 12 THEN CAPTURE CAPFILE + ".C" + STR(CURDAY) : JUMP DONE
IF CURMONTH = 11 THEN CAPTURE CAPFILE + ".B" + STR(CURDAY) : JUMP DONE
IF CURMONTH = 10 THEN CAPTURE CAPFILE + ".A" + STR(CURDAY) : JUMP DONE
IF CURDAY < 10 THEN CAPTURE CAPFILE + "." + STR(CURMONTH) + "0" + STR(CURDAY) ELSE ...
CAPTURE CAPFILE + "." + STR(CURMONTH) + STR(CURDAY)
LABEL DONE
END